Form1 Form1 Form1* B_Sort &Sort B_Find &Find B_Insert &Insert B_Del &Delete Picture1 B_Quit &Quit T_Input 4321.99 Label1 4Enter a number to search column 1 for or to insert. Grid1 VScroll1 Command2_Click Form_Click Grid1 Colwidthb Form_Load Command3_Click Entry Element HugeRedim hArray HugeDim HugeErase SetHugeEl FillGrid StartPt StopPt$ Pointers pointer5 GetHugeEl Text) Vscroll1_ChangeE Vscroll1 ValueB GridStart: Grid2 LastElement StartRowL BlankGrid StopRow Blank Start* StartColf StopCol Vscrolln LargeChange SmallChange ElesIf ArraySorted B_Find_ClickU SortedArray B_Insert_Click B_PgDn_Click PgAmt= Vscroll1_Click B_PgUp_ClickE B_Quit_Click MousePointer Form1 text1 T_Input Rowsw B_Sort_Click Bottom2 LastArray array ElementStr8 GetEl L_SortStart L_SortStop captionJ L_SortStop_Click^ CurElement CurEl^ T_Input1 NewElm Grid3 T_Input_Change T_Input_GotFocus SelStart SelLength ArraySize Picture1_Click$ ScrollUp ScrollDown LastValue B_Del_Click ColSelected DelRow CellSelected Deleted NumDeleted DecrLastEl IgnoreChangeQ SelStartRow SelEndRowu SelStartCol SelEndCol Gird1 IncrEl IncrLastEl MatchPt MatchPoint MatchRow lastz Rather than move elements around in an array (or on disk, if you use these routines with a random access file instead), we use pointers to the recordss instead. Again, rather than move data around when when an element is deleted, we keep track of deleted elements and reuse them when adding new elements. Of course, when saving to disk, you would ignore the deleted elements. pointer number of the first element on the grids pointer number of the last element found on a search number of elements in the Array - 5000, in this examplel flag to show if the Huge Array is sorted.n number of lines to page up and down by variables used in the sort routine.m last value selected on scroll barr flag to allow changing Vscroll1.value without executingt Vscroll1.Change Grid row number where matching item is after a Finda Copyright 1991 Nelson Ford, Public (software) Libraryy Form_Load amount of data we are going to stuff into the array Set width of each grid column: Set up Scroll bar values:9 Set up HugeArray (requires Hugearr.dll in PATH) Error dimensioning array: fill array with dummy data 333333 display last 10 entries in the Grid: FillGrid Vscroll1_Change See "Change Property" in the VB Manual. up arrow clicked: scroll down down arrow clicked: scroll up clicked above handle: page down clicked below handle: page upc moved handle B_Find_Click Nothing entered. Debug.Print l; u, T_Input.Text, Entry.a1 B_Insert_Click Out of room. Enter something in the Text Box. If a match was not found, the contents of Grid.Row=MatchRow, .Col=0 will be the closest match value. Test to see if the new value is < or => the contents of that cell: Error in inserting data. B_Quit_Click B_Sort_Click GetEl T_Input_GotFocus Picture1_Click Public (software) Library is the most extensive collection of pd/shareware available. We have a large collection of routines for all languages, including VB. For a catalog, call 800-242-4PsL or write PsL, P.O.Box 35705, Houston, TX 77235-5705." ScrollUp ScrollDown B_Del_Click Cell not selected. array element number Delete entire row? just delete cell, not the entire entry Error deleting data. Copyright 1991 Nelson Ford, Public (software) Libraryy DecrLastEl takes care of all the ramifications of decreasing LastElemente IncrLastEl takes care of all the ramifications of increasing LastElementc